Scriptbox - Find your Script, VBScript VBScripts VB-Script VB-Scripts Scripting

Loading

:: { Category } ::

0-9


	Search Options: Replace Numeric Values in an Excel Spreadsheet Content of Replace Numeric Values in an Excel Spreadsheet.vbs MD5 Hash: B41AEE98B9835CEAC1A546D0DEF84459
	Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True Set objWorkbook = objExcel.Workbooks.Open("C:\Scripts\Test.xls") Set objWorksheet = objWorkbook.Worksheets(1) Set objRange = objWorksheet.UsedRange For Each objCell in objRange If IsNumeric(objCell.Value) Then If objCell.Value > 999 Then objCell.Value = 999 End If End If Next

© 2008 - 2013 Boris Toll :: Scripts available: 6.481 :: :: scriptbox.toll.at :: :: powered by www.toll.at ::